class ckBaseClass	public property name as string	public property count as integer	public sub ckBaseClass()		msgbox("Created new BaseClass")	end sub	public sub TestSub()		me.name = "base Class"	end sub	end classclass ckTestClass	extends ckBaseClass	public property fullname as string		public sub ckTestClass()		msgbox("Created new TestClass")	end sub	public sub TestSub()		me.name = "Test Class"	end sub	public sub TestFullName()		me.name = "Test Class " & me.fullname	end subend classsub main()   	dim test as ckTestClass	test = new ckTestClass		msgbox("Assign some stuff")	test.name = "Jose L. Cuevas"	test.fullname = "Lourdes Perez"		msgbox(" Name " & test.name)	msgbox(" Full Name " & test.fullname)	msgbox("Lest call a sub")	test.TestSub()	msgbox("After call TestSub() Name " & test.name)	test.TestFullName()	msgbox("After call TestFullName() Name " & test.name)	msgbox("test done")end sub